DEFINITION MODULE ScrpMgr;

(*
AES Scrap Manager.

UK __DATE__ __TIME__
*)

(*DEF_SWITCHES*)

(* additional extensions due to June-July 1991 ATARI.RSC newsletter *)

#if revers
TYPE Scraps = (ScUSR,
               Sc14,
               ScCVG,
               ScEPS,
               ScIFF,
               ScTIF,
               ScWP,
               Sc1WP,
               ScRTF,
               ScASC,
               ScDIF,
               ScDCA,
               ScIMG,
               ScGEM,
               ScTXT,
               ScCSV);
#else
TYPE Scraps = (ScCSV, (* comma separated values                              *)
               ScTXT, (* ASCII only text, CR/LF at the end of each line      *)
               ScGEM, (* Standard GEM Metafile Graphics                      *)
               ScIMG, (* Standard GEM Bitmapped Graphics Image               *)
               ScDCA, (* IBM Document Contents Architecture                  *)
               ScDIF, (* Data Interchange Format - Spreadsheet/Database data *)
               ScASC, (* ASCII only text, CR/LF at the end of each paragraph *)
               ScRTF, (* Rich Text Format defined by Microsoft               *)
               Sc1WP, (* First Word Plus formatted text                      *)
               ScWP,  (* Word Perfect formatted text                         *)
               ScTIF, (* Tagged Interchange File Format Graphics             *)
               ScIFF, (* Interchange File Format                             *)
               ScEPS, (* Encapsulated Postscript File                        *)
               ScCVG, (* Calamus Vector Graphic                              *)
               Sc14,  (*                                                     *)
               ScUSR);(* User Defined                                        *)
#endif

TYPE Scrap = PACKEDSET OF Scraps;
#if revers
CONST NoScrap = Scrap{ScUSR..ScCSV};
#else
CONST NoScrap = Scrap{ScCSV..ScUSR};
#endif

(* [Scr]a[p] Manager: [Read] Scrap Directory, AES(80) **********************)

PROCEDURE ScrpRead(VAR Path: ARRAY OF CHAR): Scrap;

(* [Scr]a[p] Manager: [Write] Scrap Directory, AES(81) *********************)

PROCEDURE ScrpWrite(REF Path: ARRAY OF CHAR);

(* [Scr]a[p] Manager: [Clear] Scrap Directory, AES(82) *********************)

PROCEDURE ScrpClear;

END ScrpMgr.
